1000 REM BINAERE SUCHROUTINE ---------------------------------------------------
1005 INPUTSU$  :REM SUCHBEGRIFF
1010 N=INT(LOG(SZ)/LOG(2))+1                           :REM MAXIMAL-FORMEL
1040 SA=(2^N)/2:REM MITTE DER GES.DAT
1050 N=N-1     :REM 1.ABFRAGE
1100 :
1110 : IFSU$=D$(SA)THENPRINT"SU$ STEHT IN SATZ ";SA:END:REM SU$ GEFUNDEN
1120 : IFSU$<D$(SA)THENSA=SA-(2^(N-1)):GOTO1200        :REM ''HALBIEREN''
1125 : IFSA+(2^(N-1))>SZANDN>-1THENN=N-1:GOTO1125      :REM ''UEBERLAUF''
1130 : SA=SA+(2^(N-1))                                 :REM ''HALBIEREN''
1200 :
1210 :N=N-1    :REM NAECHST. HALBIEREN
1220 :IFN<0THENPRINT"SU$ GIBT'S NICHT! IN 1220":END    :REM SU$ NICHT IN DATEI
1225 PRINT"SA=";SA;" N=";N                             :REM UNNOETIG !!
1230 :GOTO1100 :REM NAECHST. SUCH-VERS.